﻿Imports System.Data
Imports System.Data.Odbc
Imports WSEntidades
Public Class bancosFact
    Public Shared Function Build(ByVal dr As OdbcDataReader) As BancosBE
        Dim tmpBancos As BancosBE = New BancosBE()
        Try
            With tmpBancos
                .IdBanco = convertDTFromDb.convertInt32(dr.Item("IdBanco"))
                .Descripcion = convertDTFromDb.ConvertString(dr.Item("Descripcion"))
                .Status = convertDTFromDb.ConvertString(dr.Item("Status"))

            End With
            Return tmpBancos
        Catch ex As Exception
            Throw
        Finally
            tmpBancos = Nothing
        End Try
    End Function
End Class
